﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Partial Class Reporte
    Inherits System.Web.UI.Page
    Dim str_error As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Definimos un objeto contenedor de reportes
        Dim reporte As New ReportDocument
        'Cargamos el reporte físico r1.rpt al contenedor
        reporte.Load(Server.MapPath("ReporteProyecto.rpt"))

        'Instanciamos la clase ClienteBLro
        Dim capanegocios As New ProyectoBL

        Try

            'Establecemos el origen de datos del contenedor,
            'el cual siempre es una tabla (Datatable)
            reporte.SetDataSource _
            (capanegocios.PresupuestoxProyecto.Tables("Productos"))

            'Establecemos el reporte a mostrar en el visor
            CrystalReportViewer1.ReportSource = reporte
            CrystalReportViewer1.RefreshReport()

        Catch ex As Exception
            str_error = capanegocios.CapturaError
            'Mandamos el error a la página de errores
            Response.Redirect("Errores.aspx?par=" & str_error)
        Finally
            capanegocios = Nothing

        End Try

    End Sub


  

End Class
